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1b-se 1984 00:09:44 = VAX=11 Bliss-32 V4.0-742 1 PAT: 
14-Sep 1984 9393548 DISKSVMSMASTER: CPATCH.SRCJPATSTO. 832; 17° 1) V04: 


MODULE PATSTO cae amid EQ. 1 


ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
i , NONEXTERNAL = LONG_RELATIVE), 
IDENT = 'V04-000') = 
BEGIN 


ESE SE TESTES TT TTT TTT TTT Tere ceri creer irri criti tii i rit i iti iii ii iii tiitiiiie 


'® ® 
ie COPYRIGHT (c) 1978 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT EORPORATION, MAYHARD. MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. 
iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE pido NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
'® ® 
'® DIGITAL ASSUMES NO RESPONS * 
SOFTWARE ON EQUIPMENT WHIC 7 
i 

icenneneeenneeneecerereeeennenenncnceneeeeesesenennnnennanangeessesetssenns 


FACILITY: PATCH 


ie 
i oe DESCRIPTION: 
DECLARES GLOBAL VARIABLES FOR PATCH FACILITY 


Bveonres 


B He se OR RELIABILITY OF ITS 


IBIL 
H IS LIED BY DIGITAL. 


* Coret Peters, 03 Jul 1976: Version 01 
Modified by: 
v03-005 MCNO157 Maria del C. Nasr 14-Feb-1984 


Now we are Going user open of input file to + able 
to use the new image activator routines. 


v03-004 MCN150 aria del C. 06-Feb-1984 
Define global wh. ble PATSGL” CHANUM to hold channel 
for call to LIBS_CREMAPSEC. 

v03-003 MTROO21 Mike odgs 27-Apr-1983 
Increase PATS$K _MEREXP™ os 


PATSTO 
v04-000 1b-5¢ Sep~! X=11 Bliss-32 V4.0-74 PATS 
sett 99: 93:28 Me SKSV nen STER: a PAT ON. eecaPATSTO. B32. aad a8 yOu: 


° 8 1! 
: 99 035 1} VO3-002 MTROO16 Mike 

: 9-0ct- 
; rs rf ! } Add PATS$GW_ INGTYP werd. othis Kor q describes: the type 
: ae Toese feelvarers* Ot fe Ceestee ta Ube Last ord 
; er e§ ; the first VBN of the loess.” poli ngk ic Repatd: 
3 «65 65 1! V03-001 MTROO12 Mike Rhodes 
86 066 1 | Modify file names to remove gee Ryle 
H of 087 ! between code and anny Feat, One wees 
3 $69 069 1 | v02-020 ™ 

“Au 

; fy Of } hdd global descriptsr. my allowing LARSOUTPUT HELE. 
ie | 072 13 Mn te Ba My nder of the command Line without 
4 Ore 1; intervention from PATCH's parser. 
; Pp 07% 13 e symbol is PATSGL_HELP_LIN. 
= ‘es 0075 1! v02-019 BLS0043 Benn Schrei tenties 
: #6 o076 1 Add KABFHC for input file pematbe 
; we 0078 1: v02-018 PCG0001 Peter Geo . 
: 4 'T64 } Add require statement for Liss: PATDEF. REQ” cpt 
; «(81 0081 1 !-- 


GLOBAL LITERAL 
PATSK_MEMEXP = 20, 

PATSK-MAXBLKS1Z 

PATSK_ERRNAMLNG 


PATSK~ INPNAMLNG 
PATSK~OUTNAMLNG 


=" PATSK_MEMEXP*512 

= XZCHARTOUNT('SYSSERROR'), 
= XCHARCOUNT('SYS$INPUT') 

= XCHARCOUNT('SYSSOUTPUT'S; 


le 
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PATSGL_CSP_PTR : REF PATHNAME_VECTOR, 
PATSGL-MC_PTR : REF MC_RECO 
PATSGL-NT-HASH : REF RST_POINTER, 


tee 
Declare the FAB and RAB blocks for terminal 1/0. 
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ce ee ee ee ee ee ee ee ek et ee ed ed ed ed nd ed = dd 


965 lee 
8 P 208 PATSGL_INPFAB: S$FAB (FAC=GET 
9 P 196 . FNA=PATSGB_INPNAME 


uf f 
lt 


Number of 
Maximum allocation siz 

Length of error channel name 
Length of input channel name 
Length of output channel name 


e 
f 


r 
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siz 
le t 


Output buffer 


mod 


K 2 
P 16-Sep-1984 00:09:44 VAX-11 Bliss-32 V4.0-74 Page 
v04 12-868: 382 99:9 :48 DLEKSVMGMASTERSCPATCH. SRCIPATSTO.B3207° 23 
99 LIBRARY V SYSSLIBRARY: STARLET.L32"; 
REQUIRE 'SRC$:PATRTS.REQ'; 
REQUIRE 'SRCS$:PATGEN.REQ': 
REQUIRE ORCS: SYSLIT.REQ ; 
REQUIRE 'SRC tVXPALT REQ? 
REQUIRE "LIBSsPATDER REG" ! Defines Literal 
REQUIRE "LIBS:PATMSG.REQ'; neta ogra 
BIND 
PATSB_DEFJNL = UPLIT(BYTE('.JNL')), ! Default journal file type 
PATSB_DEFIMG = UPLIT(BYTE(’ .EXE')), i Default fi 
PATSB~DEFCOM = UPLIT(BYTE(’ .COM')): b Rolecll conteas tear Seed 
GLOBAL BIND 
PATSGB_ERRNAME = UPLIT(BYTE('SYSSERROR')) ' Logical error channel name 
PAT$GB_OUTNAME = UPLIT(BYTE('SYSSOUTPUT')), i Logical output channel name 
PATSGB_INPNAME = UPLIT(BYTE('SYSSINPUT')); ! Logical input channel name 


s to expand free memory 
€ 


es 
ype lengths 


e bloc 


tant journal file name 


REFS to more complicated structures which are defined in PATRST.REQ. 


' Resultant output command file name 
' Resultant output snage file name 

' Resultant old image fil 

! Input buffer 


LITERAL 

3 PATSK_BUFSIZ = 512 ' 1/0 b 

; PATSK~DEFTYPLNG = 4; i Defau 

4 OWN 

4 PATSGB_OUTBUF: VECTOR CPATSK_BUFSIZ,BYTE); 

4 GLOBAL 

4 '+¢ 

: These are byte vectors. 

4 PAT$GB_SUBST_IN: VECTOR (80,BYTE), ! Substitution instruction counted byte stre 

4 PATSGB_DEF MOD: VECTOR CMODE LEVELS * MODE_LVL_SIZE, BYTE], ! Defaul 
PATSGB_JNLNAME: VECTOR CNAMSC_MAXRSS, BYTE), ' Resul 
PATS$GB_COMNAME: VECTOR CNAMSC_MAXRSS BYTE], 
PATSGB_NEWNAME: VECTOR CNAMSC_MAXRSS BYTE], 
PATS$GB_OLDNAME: VECTOR CNAMSC-MAXRSS BYTE ‘ 
PAT$GB_INPBUF: VECTOR CPATSK_BUFSIZ,BYTEJ, 


' Pointer to current scope record (CSP) 
' Pointer to module chain (M 
! Pointer to name table hash vector (NT) 


S$ep-1984 VAX-11 Bliss-32 V4. +05 742 4 PAT! 
HEoSeoctge 0:08:44 VaNC HT atise=52 MaOK742 page 4] | PAT 
+ ENSSPATSK. INPNAMLNG 
RS=NO_OF -INP_CHARS), 
PATSGL_OUTFAB: $FAB cenbeptt 


AT= 
; ENASPATSGB OUTNAME 
ENSSPATSE OUTNAMLNG 
MRS=TTY_OOT_WIDTH), 
PATSGL_ERRFAB: $FAB (FA te CSPUT 


g 
’ FNA=PATS$GB_ERRNAME 
+ ENS=PATSK ERRNAMLNG 
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1 
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1 
1 
1 
1 
1 MRS=TTY 1DTH), 
1 PATSGL_INPRAB: #XAB custo OF TRS 
FAB=P “PRISE INPEAB 
1 PAT$SGL_OUTRAB: $RAB (FABE PaaS im cro ure AB) ‘ 
P PATSGL-ERRRAB: $RAB ( FAB=PAT Ts6C ERRF AB 
P PATSGL_OLDNBK: SNANCRSA-BATSGB,OLDKAME nel 
P . [iecuantt 
Pi PATSGL_JNLNBK: SHANCRSARBATEGR JNLNAME 
P 199 S=NAMSC_MAXRSS 
P 199 ‘ miei JNLNAME 
P 199 ; ESS=NAMSC_MAXRS 
1994 RLF s F=PATSGL OLONBK) , 
P 1995 PATSGL_COMNBK : SNAN(RSASPAT GB_C NAME 
P 1996 RSS=NAM juee 
P 1997 ; miei hs COPNAME 
P 1998 SS=NAMSC_MAXR 
1999 RLF =PA <PATSGL OLDNBK) , 
P 2000 PATSGL_NEWNBK : cuaenabiiel NARE 
P 001 » RSS= Bak aise MAXRSS 
P é ; ESA=PAT$GB_NEWNAM 
P 200 ; ESS=NAMSC_MAXR 
2004 RLF =PATSGC_OLDNBK), 
005 PATSGL_OLDXABFH : $XABF ene cerns 
2006 PATS$GL—NEWXABALL: SHABALL (AP=HR6 ' Used when ALN = LBN 
007 - ! To keep XABSC_LBN transparent 
008 PATSGL_JNLFAB: $F ABCNAN=BATSOL JNLNBK 
009 S=K_PAGE 
0 ; DNA=PAT$B_DEF UNL 


° = 
. DNS=PATSK_DEFTYPLNG 
. POPS <CiF .OFP) 


AC=PU 


* SHR=NIL), 
PATSGL_COMFAB: SFAB(NAM=PATSGL CORNBK 
e = 
> DNA=PATSB_DEF COM 
> RAT=CR 
,  DNS=PATSK _DEFTYPLNG 
> FOP=OFP 
+» EACSPUT 
PATSGL_NEWFAB: $FAB(NAM= =baTSeL” _NEWNBK 
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XAB=PATSGL_NEWXABALL 
MRS=A_PAGE 


DNA=PATSB_DEF IMG 
DNS=PATSKDEFTYPLNG 


» FAC=<PUT,BRO,GET,TRN> 


SHR=NIL) , 
PATSGL_OLDFAB: SFAB(NAM=PATSGL_OLONBK 
, XAB=PATSGL_OLDXABFH 
, DNA=PATSB_DEF IMG 
, DNS=PATSK-DEF TYPLNG 


FOP=UFO), 
PATSGL_JNLRAB: $RAB(ROP=E0F 

, RBF=PAT$GB_OUT 
, RSZ=PATSK_BUFS 
FAB=PATSGC_JNL 

PATSGL_COMRAB: SRAB(RBF=PAT$GB_OUTBUF 
, RSZ=PATSK_BUFS 
FAB=PATSGC_COM 

PATSGL_OLDRAB: SRAB(RBF=PATSGB_INPBUF 
, RSZ=PATSK_BUFS 
: UBF =PATSGB INP 


eee eee 
zDD 
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FAB=P 
PATSGL_NEWRAB: S$RAB(RBF=PAT$GB 


144 
These are the only bitvectors. 


PATSGL_CONTEXT: BITVECTOR CONTEXT BITS] 
PATSGL-COMQUAL: BITVECTOR CCONTEXT-BITS 


'o4¢ 
These are global bytes. 


PATSGB-EXEC CMD: BYTE, 
PAT$GB_SYMBOLS: BYTE 

PAT$GB-LOC_TYPE: BYTE, 
PAT$GB_TAKE_CMD: BYTE, 


++ 


! Now REFs to byte vectors. Don't confuse these with byte 


vectors. 


PATS$GL_HELP_LIN : BLOCK (8, BYTE) 
PATSCP-OUT_STR : REF VECTOR _L, eytel. 
PATSGB-MOD-PTR: REF VECTOR C, BYTE), 


‘+4 
Normal longword vectors. 


PATS$GL_ISVADDR : VECTORC2,LONG 


], t st 
PATSGL_SEMAN1: VECTOR CMAX_STACK_PTR * PATSK_STELM_SIZ], ! Semantic stack for tokens 


1Sosto-1984 00:08:44 


Context longword 
Command qualifier context bits 


ECO level for patches currently being pert 
Indicator whether or not to execute PATCH 
Indicator if image has symbols 

Tells what sort of end range location 
BOOLEAN, TRUE if another -command will be r 


Descriptor for remainder of command string 
Points into current output buffer. 
Pointer to current mode level 


Start and ending addrs for last mapped ima 


N 2 
PATST 16-Sep-1984 00:09:44  VAK=11 BLiss-32_v4.0-742 p 
§00 er geen 1 aBe 98: es ts Nd ShleteRsceRE en Sacaparsro.es2—;% «2s 
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v04- Sep-1 
4 pATESL .SERANG: VECTOR CHAR STACK PTR * PATSK_STELM_S1Z], ! Semantic stack for pointers to strings 
5 PATSGL_ECO_UPD: VECTOR [4], ! Bits corresponding to ECO levels to be upd 
§ PATSGL_MEMCHD: VECTORC2 sities (0 8) : oree memory lListhead 
PATSGL-TEMP_BUF: VECTORC2) INITIAL (0,6), i String descriptor for temporary deposit bu 
58 8 PATS$GL_OLD_ASD: VEEL OR INITIAL (9.6), ! String descriptor for old contents assembl 
59 4 PATSGL_NEW_ASD: VECTOR INITIAL (0,0) ! String descriptor for new contents assembl 
60 ; PATSGL-RLOC_BUF: VECTORC2) INITIAL (6,05, i String descriptor for relocation buffer 
6 9 ++ 
o 2 } And finally the global scalar longwords. 
65 9 PATSCP_INP_DSCS, Pointer yo input Line descriptor fable 
66 9 PATSGL_BR_BISPL: SIGNED LONG, Branch displacement that didn't fit 
67 9 PATSGL_CHANUM : INITIAL (0), Channel number 
68 9 PATSGL_ERRCODE Error code 
69 9 PATSGL—EXPANDVA, First sapere region address 
270 9 PATSGL_NEW > Maximum VBN in new image file 
271 9 PATSGi._NEWVPNMX, Maximum VPN in new snoge file 
0 PATSGL_OLDVBNMX, Old file max VBN used for image section bi 
0 PATSGL_FWRLHD Forward Reference table Listhead 
0 PATSGL_PAL LHD, Patch area listhead 
0 PATSGL_PATAREA, Holds address of patch area descriptor 
0 PATSGL_RST BEGN, Beginning address of RST 
0 1 Symbol Listhead 


Listhead for old contents relocated instru 
Listhead for new contents un-relocated ins 
Listhead for relocated instruction labels 
Poirter to current symbol table to be sear 
Lowest address ever allocated 

pangs section table lListhead 

Last entry in image section table 

Patch command text Listhead 

Address of next free command text buffer 
Pointer to Last command text block 


MOPIPUPOPONOPOPONoPonofnonofnononony 


SSBLEARE 


Number of blocks in new image file 
pep etive Volume Number for new image 
ags 


Pointer to image header patch section 
Holds address of image header data 
Character count in output buffer 

Name of current keyword table 

Head of Linked argument List 

Tail of Linked argument List 

Last location displayed 

Last value displaye 

Next location to display 

Image Type identifier. 
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TITLE PATST 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
4C 4E 4A 2€ 00000 P.AAA: .ASCII \.JNL\ : 
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v042000 i “520-1984 13308528 UTSKSUMEMASTERSCPAT CN SacIPATSTO.B32¢4°° (25 
$5 EP tS FE OBRRs Be: ASHE Ean : 
52 4F 52 52 45 24 53 3 a P.AAD: ASCII ySYSSERROR\ : 
54 55 50 54 55 GF 24 53 59 53 18 P.AAE: ASCII \SYS$OUTPUT\ : 
54 55 50 4E 49 24 53 59 53 $05 P.AAF: ASCH <sysSiNPUT\ : 


»PSECT SOWNS,NOEXE,2 


00000 PAT$GB_OUTBUF : 
“BLKB 512 


.PSECT $GLOBAL$,NOEXE,2 
00000 PATSGB SUBST IN: 
00050 PATSGB_DEF “MOD: : 
0006C PATSGB_JNLNAME: : 

.BLKB 


w 
w 


“BLKB 
PATSGB_COMNAME : : 
~BLKB 


wi 
“ 


w 
“ 


“BLKB 
PATSGB_OLDNAME: : 
-BLKB 


=n —— —r —fy 
wn 
ww 


001 
0016C 

00268 -BLKB 
0026C PATSGB_NEWNAME 
00368 ; 

0036¢ 

004 


bosee PATSGB_INPBUF :: 
0066C PATSGL_C&P PTR: : 
00670 PATSGL_MC_PTR:: 
00674 PATSGL_Ni-HAgH:: 
03 00678 PATSGL 1WBEAB: 
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